shortcut_vbs <-function(ScriptName){
LNKcreateVBS <- system.file(package="launch",path="vbs/shortcut.vbs")
shell(paste("Cscript //B ",shQuote(LNKcreateVBS),shQuote(ScriptName),sep=" "))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.